home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Super Collection / Windows 95 Super Collection.iso / win95 / programm / vbxstd20 / vbpages.cp_ / VBPAGES.CPP
Encoding:
C/C++ Source or Header  |  1995-07-20  |  38.0 KB  |  1,442 lines
  1. // --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  2. //
  3. //        VBPAGES.CPP
  4. //        VBX Studio 2.0 
  5. //        18-jul-95
  6. //        «HEXANET, COPYRIGHT HEXANET 1993-1995, ALL RIGHTS RESERVED
  7. //        EMail: hnet@dialup.francenet.fr / CIS: 100333,27
  8. //        HexaNet SW - BP 385.16 - 75768 PARIS CDX 16 - FRANCE
  9. //
  10. //        You can distribute this file as long as you distribute
  11. //        the full VBX Studio package.
  12. // --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  13. //        You can use this sample file as you want.
  14. // --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  15. #include "stdafx.h"
  16. #include "resource.h"
  17. #include "vbxdemo.h"
  18. #include "vbpages.h"
  19.  
  20. #ifdef _DEBUG
  21. #undef THIS_FILE
  22. static char BASED_CODE THIS_FILE[] = __FILE__;
  23. #endif
  24.  
  25. LPSTR CustomSpinList[] = { "<Item 1>", "<Item 2>", "<Item 3>" };
  26.  
  27. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  28. // CDlgVBList dialog
  29.  
  30.  
  31. CDlgVBList::CDlgVBList() : CPropertyPage( CDlgVBList::IDD )
  32. {
  33.     //{{AFX_DATA_INIT(CDlgVBList)
  34.         // NOTE: the ClassWizard will add member initialization here
  35.     //}}AFX_DATA_INIT
  36. }
  37.  
  38. void CDlgVBList::DoDataExchange(CDataExchange* pDX)
  39. {
  40.     CPropertyPage::DoDataExchange(pDX);
  41.     //{{AFX_DATA_MAP(CDlgVBList)
  42.         // NOTE: the ClassWizard will add DDX and DDV calls here
  43.     //}}AFX_DATA_MAP
  44. }
  45.  
  46. void CDlgVBList::OnHelp()
  47. {
  48.     if ( !bHlpNotHere )
  49.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBList" );
  50.     else
  51.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  52. }
  53.  
  54.  
  55. BEGIN_MESSAGE_MAP(CDlgVBList, CPropertyPage)
  56.     //{{AFX_MSG_MAP(CDlgVBList)
  57.     ON_COMMAND(IDHELP, OnHelp)
  58.     //}}AFX_MSG_MAP
  59. END_MESSAGE_MAP()
  60.  
  61. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  62. // CDlgVBTabList dialog
  63.  
  64.  
  65. CDlgVBTabList::CDlgVBTabList() : CPropertyPage( CDlgVBTabList::IDD )
  66. {
  67.     //{{AFX_DATA_INIT(CDlgVBTabList)
  68.     m_pMainList = NULL;
  69.     //}}AFX_DATA_INIT
  70. }
  71.  
  72. void CDlgVBTabList::DoDataExchange(CDataExchange* pDX)
  73. {
  74.     CPropertyPage::DoDataExchange(pDX);
  75.     //{{AFX_DATA_MAP(CDlgVBTabList)
  76.     DDX_VBTabList(pDX, IDC_VBTABLIST1, m_pMainList);
  77.     //}}AFX_DATA_MAP
  78. }
  79.  
  80. void CDlgVBTabList::OnHelp()
  81. {
  82.     if ( !bHlpNotHere )
  83.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBTabList" );
  84.     else
  85.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  86. }
  87.  
  88. BOOL CDlgVBTabList::OnInitDialog()
  89. {
  90.     CStr szTest;          
  91.     long lSize1;
  92.     CPropertyPage::OnInitDialog();
  93.     
  94.     szTest = "custom data";
  95.     lSize1 = (long)szTest.GetTextWidth( this );
  96.     
  97.     m_pMainList->TabList( lSize1+10, 0 );
  98.     
  99.     m_pMainList->AddString("custom data\t(first item);1");
  100.     m_pMainList->AddString("bitmapped\t(next item);2");
  101.     m_pMainList->AddString("and so on\t...;3");
  102.     m_pMainList->SetSel2() = 0L;
  103.     UpdateData( FALSE );
  104.         
  105.     
  106.     return TRUE;  // return TRUE  unless you set the focus to a control
  107. }
  108.  
  109.  
  110. BEGIN_MESSAGE_MAP(CDlgVBTabList, CPropertyPage)
  111.     //{{AFX_MSG_MAP(CDlgVBTabList)
  112.     ON_COMMAND(IDHELP, OnHelp)
  113.     ON_VBXEVENT(VBN_FILEDROPPED, IDC_VBTABLIST1, OnFiledroppedVbtablist1)
  114.     //}}AFX_MSG_MAP
  115. END_MESSAGE_MAP()
  116.  
  117. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  118. // CDlgVBFList dialog
  119.  
  120.  
  121. CDlgVBFList::CDlgVBFList() : CPropertyPage( CDlgVBFList::IDD )
  122. {
  123.     //{{AFX_DATA_INIT(CDlgVBFList)
  124.     m_pDrivesList = NULL;
  125.     m_pDirList = NULL;
  126.     m_pFilesList = NULL;
  127.     //}}AFX_DATA_INIT
  128. }
  129.  
  130. void CDlgVBFList::DoDataExchange(CDataExchange* pDX)
  131. {
  132.     CPropertyPage::DoDataExchange(pDX);
  133.     //{{AFX_DATA_MAP(CDlgVBFList)
  134.     DDX_VBFCombo(pDX, IDC_VBFCOMBO1, m_pDrivesList);
  135.     DDX_VBFList(pDX, IDC_VBFLIST1, m_pDirList);
  136.     DDX_VBFList(pDX, IDC_VBFLIST2, m_pFilesList);
  137.     //}}AFX_DATA_MAP
  138. }
  139.  
  140. void CDlgVBFList::OnHelp()
  141. {
  142.     if ( !bHlpNotHere )
  143.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBFList" );
  144.     else
  145.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  146. }
  147.  
  148. void CDlgVBFList::OnSelchangeVbfcombo1(UINT, int, CWnd*, LPVOID)
  149. {
  150.     // TODO: Add your VBX event notification handler code here
  151.     CString szTemp;
  152.     if ( m_pDrivesList->DriveValid() != 0 )
  153.         {
  154.         m_pDrivesList->GotoDrive() = TRUE;
  155.         szTemp = m_pDrivesList->GetCurDir();
  156.         if ( szTemp.GetLength() < 2 )
  157.             return;
  158.         szTemp = szTemp.Left(szTemp.GetLength()-1);
  159.         m_pDirList->InValue() = szTemp;
  160.         szTemp += "\\*.*";
  161.         m_pFilesList->InValue() = szTemp;
  162.         }
  163.     else
  164.         {
  165.         szTemp = "Drive not ready!";
  166.         MessageBox( szTemp );
  167.         m_pDrivesList->InValue() = (CString)m_pDrivesList->GetCurDir();
  168.         }              
  169.     UpdateData( FALSE );
  170.         
  171.         
  172. }
  173.  
  174. void CDlgVBFList::OnDblclickVbflist1(UINT, int, CWnd*, LPVOID)
  175. {
  176.     CString szTemp;
  177.     szTemp = m_pDirList->OutValue();
  178.     m_pFilesList->InValue() = szTemp;
  179.     UpdateData( FALSE );
  180.     
  181. }
  182.  
  183.  
  184. BEGIN_MESSAGE_MAP(CDlgVBFList, CPropertyPage)
  185.     //{{AFX_MSG_MAP(CDlgVBFList)
  186.     ON_COMMAND(IDHELP, OnHelp)
  187.     ON_VBXEVENT(VBN_SELCHANGE, IDC_VBFCOMBO1, OnSelchangeVbfcombo1)
  188.     ON_VBXEVENT(VBN_DBLCLICK, IDC_VBFLIST1, OnDblclickVbflist1)
  189.     //}}AFX_MSG_MAP
  190. END_MESSAGE_MAP()
  191.  
  192. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  193. // CDlgVBTabFList dialog
  194.  
  195.  
  196. CDlgVBTabFList::CDlgVBTabFList() : CPropertyPage( CDlgVBTabFList::IDD )
  197. {
  198.     //{{AFX_DATA_INIT(CDlgVBTabFList)
  199.     m_pMainList = NULL;
  200.     //}}AFX_DATA_INIT
  201. }
  202.  
  203. void CDlgVBTabFList::DoDataExchange(CDataExchange* pDX)
  204. {
  205.     CPropertyPage::DoDataExchange(pDX);
  206.     //{{AFX_DATA_MAP(CDlgVBTabFList)
  207.     DDX_VBTabFList(pDX, IDC_VBTABFLIST1, m_pMainList);
  208.     //}}AFX_DATA_MAP
  209. }
  210.  
  211. void CDlgVBTabFList::OnHelp()
  212. {
  213.     if ( !bHlpNotHere )
  214.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBTabFList" );
  215.     else
  216.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  217. }
  218.  
  219.  
  220. void CDlgVBTabFList::OnFiledroppedVbtabflist1(UINT, int, CWnd*, LPVOID lp)
  221. {
  222.     CString szMsg = "You dropped:\n\n";
  223. for ( int i = 0; i < m_pMainList->EventDroppedFiles( lp ); i++ )
  224.     {
  225.     szMsg += (CString)m_pMainList->DroppedFilename( i );
  226.     szMsg += ".\n";
  227.     }
  228. MessageBox( szMsg );
  229.  
  230.     
  231. }
  232.  
  233. BOOL CDlgVBTabFList::OnInitDialog()
  234. {
  235.     CStr szTest;          
  236.     long lSize1;
  237.     CPropertyPage::OnInitDialog();
  238.     
  239.     szTest = "long file name.exe";
  240.     lSize1 = (long)szTest.GetTextWidth( this );
  241.     
  242.     m_pMainList->TabList( lSize1+10, 0 );
  243.     
  244.     m_pMainList->AddString("FILE1.TXT\t(236.365 b.);TXT");
  245.     m_pMainList->AddString("long file name.exe\t<no informations>;EXE");
  246.     m_pMainList->AddString("unknown.ade\t?;ADE");
  247.     m_pMainList->SetSel2() = 0L;
  248.     UpdateData( FALSE );
  249.         
  250.     return TRUE;  // return TRUE  unless you set the focus to a control
  251. }
  252.  
  253. void CDlgVBTabList::OnFiledroppedVbtablist1(UINT, int, CWnd*, LPVOID lp)
  254. {
  255.     CString szMsg = "You dropped:\n\n";
  256. for ( int i = 0; i < m_pMainList->EventDroppedFiles( lp ); i++ )
  257.     {
  258.     szMsg += (CString)m_pMainList->DroppedFilename( i );
  259.     szMsg += ".\n";
  260.     }
  261. MessageBox( szMsg );
  262.  
  263. }
  264.  
  265.  
  266. BEGIN_MESSAGE_MAP(CDlgVBTabFList, CPropertyPage)
  267.     //{{AFX_MSG_MAP(CDlgVBTabFList)
  268.     ON_COMMAND(IDHELP, OnHelp)
  269.     ON_VBXEVENT(VBN_FILEDROPPED, IDC_VBTABFLIST1, OnFiledroppedVbtabflist1)
  270.     //}}AFX_MSG_MAP
  271. END_MESSAGE_MAP()
  272.  
  273. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  274. // CDlgVBCombo dialog
  275.  
  276.  
  277. CDlgVBCombo::CDlgVBCombo() : CPropertyPage( CDlgVBCombo::IDD )
  278. {
  279.     //{{AFX_DATA_INIT(CDlgVBCombo)
  280.         // NOTE: the ClassWizard will add member initialization here
  281.     //}}AFX_DATA_INIT
  282. }
  283.  
  284. void CDlgVBCombo::DoDataExchange(CDataExchange* pDX)
  285. {
  286.     CPropertyPage::DoDataExchange(pDX);
  287.     //{{AFX_DATA_MAP(CDlgVBCombo)
  288.         // NOTE: the ClassWizard will add DDX and DDV calls here
  289.     //}}AFX_DATA_MAP
  290. }
  291.  
  292. void CDlgVBCombo::OnHelp()
  293. {
  294.     if ( !bHlpNotHere )
  295.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBCombo" );
  296.     else
  297.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  298. }
  299.  
  300.  
  301. BEGIN_MESSAGE_MAP(CDlgVBCombo, CPropertyPage)
  302.     //{{AFX_MSG_MAP(CDlgVBCombo)
  303.     ON_COMMAND(IDHELP, OnHelp)
  304.     //}}AFX_MSG_MAP
  305. END_MESSAGE_MAP()
  306.  
  307. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  308. // CDlgVBFCombo dialog
  309.  
  310.  
  311. CDlgVBFCombo::CDlgVBFCombo() : CPropertyPage( CDlgVBFCombo::IDD )
  312. {
  313.     //{{AFX_DATA_INIT(CDlgVBFCombo)
  314.     m_pCombo4 = NULL;
  315.     //}}AFX_DATA_INIT
  316. }
  317.  
  318. void CDlgVBFCombo::DoDataExchange(CDataExchange* pDX)
  319. {
  320.     CPropertyPage::DoDataExchange(pDX);
  321.     //{{AFX_DATA_MAP(CDlgVBFCombo)
  322.     DDX_VBFCombo(pDX, IDC_VBFCOMBO4, m_pCombo4);
  323.     //}}AFX_DATA_MAP
  324. }
  325.  
  326. void CDlgVBFCombo::OnHelp()
  327. {
  328.     if (!bHlpNotHere )
  329.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBFCombo" );
  330.     else
  331.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  332. }
  333.  
  334. BOOL CDlgVBFCombo::OnInitDialog()
  335. {
  336.     CPropertyPage::OnInitDialog();
  337.     
  338.     UpdateData( FALSE );
  339.     m_pCombo4->AddString("FILE1.TXT (236.365 b.);TXT");
  340.     m_pCombo4->AddString("FILE2.EXE (12.005 b.);EXE");
  341.     m_pCombo4->AddString("FILE3.ADE (352 b.);ADE");
  342.     m_pCombo4->SetSel2() = 0L;
  343.  
  344.     
  345.     return TRUE;  // return TRUE  unless you set the focus to a control
  346. }
  347.  
  348.  
  349.  
  350. BEGIN_MESSAGE_MAP(CDlgVBFCombo, CPropertyPage)
  351.     //{{AFX_MSG_MAP(CDlgVBFCombo)
  352.     ON_COMMAND(IDHELP, OnHelp)
  353.     //}}AFX_MSG_MAP
  354. END_MESSAGE_MAP()
  355.  
  356. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  357. // CDlgVBEdit dialog
  358.  
  359.  
  360. CDlgVBEdit::CDlgVBEdit() : CPropertyPage( CDlgVBEdit::IDD )
  361. {
  362.     //{{AFX_DATA_INIT(CDlgVBEdit)
  363.     m_pEdit1 = NULL;
  364.     m_pEdit2 = NULL;
  365.     m_pSpin2 = NULL;
  366.     m_pSpin1 = NULL;
  367.     //}}AFX_DATA_INIT
  368. }
  369.  
  370. void CDlgVBEdit::DoDataExchange(CDataExchange* pDX)
  371. {
  372.     CPropertyPage::DoDataExchange(pDX);
  373.     //{{AFX_DATA_MAP(CDlgVBEdit)
  374.     DDX_VBEdit(pDX, IDC_VBEDIT1, m_pEdit1);
  375.     DDX_VBEdit(pDX, IDC_VBEDIT2, m_pEdit2);
  376.     DDX_VBSpin(pDX, IDC_VBSPIN2, m_pSpin2);
  377.     DDX_VBSpin(pDX, IDC_VBSPIN1, m_pSpin1);
  378.     //}}AFX_DATA_MAP
  379. }
  380.  
  381. void CDlgVBEdit::OnHelp()
  382. {
  383.     if ( !bHlpNotHere )
  384.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBEdit" );
  385.     else
  386.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  387. }
  388.  
  389. void CDlgVBEdit::OnUpdateVbedit1(UINT, int, CWnd*, LPVOID)
  390. {
  391.     if ( m_pEdit1->IsValid() )
  392.         SetDlgItemText( IDC_STATICEDIT1, "<Valid>" );
  393.     else
  394.         SetDlgItemText( IDC_STATICEDIT1, "<Not Valid>" );
  395.     
  396. }
  397.  
  398. void CDlgVBEdit::OnUpdateVbedit2(UINT, int, CWnd*, LPVOID)
  399. {
  400.     if ( m_pEdit2->IsValid() )
  401.         SetDlgItemText( IDC_STATICEDIT2, "<Valid>" );
  402.     else
  403.         SetDlgItemText( IDC_STATICEDIT2, "<Not Valid>" );
  404.     
  405. }
  406.  
  407. void CDlgVBEdit::OnScrollupVbspin1(UINT, int, CWnd*, LPVOID)
  408. {
  409.     m_pEdit1->Increment() = TRUE; 
  410.     m_pSpin1->Value() = 0;  // disable the spin range checking...
  411.     
  412. }
  413.  
  414. void CDlgVBEdit::OnScrolldnVbspin1(UINT, int, CWnd*, LPVOID)
  415. {
  416.     m_pEdit1->Decrement() = TRUE;    
  417.     m_pSpin1->Value() = 0; // disable the spin range checking...
  418.     
  419. }
  420.  
  421. void CDlgVBEdit::OnScrollupVbspin2(UINT, int, CWnd*, LPVOID)
  422. {
  423.     m_pEdit2->Increment() = TRUE;
  424.     m_pSpin2->Value() = 0; // disable the spin range checking...
  425.     
  426. }
  427.  
  428. void CDlgVBEdit::OnScrolldnVbspin2(UINT, int, CWnd*, LPVOID)
  429. {
  430.     m_pEdit2->Decrement() = TRUE;
  431.     m_pSpin2->Value() = 0; // disable the spin range checking...
  432.     
  433. }
  434.  
  435.  
  436. BEGIN_MESSAGE_MAP(CDlgVBEdit, CPropertyPage)
  437.     //{{AFX_MSG_MAP(CDlgVBEdit)
  438.     ON_COMMAND(IDHELP, OnHelp)
  439.     ON_VBXEVENT(VBN_UPDATE, IDC_VBEDIT1, OnUpdateVbedit1)
  440.     ON_VBXEVENT(VBN_UPDATE, IDC_VBEDIT2, OnUpdateVbedit2)
  441.     ON_VBXEVENT(VBN_SCROLLUP, IDC_VBSPIN1, OnScrollupVbspin1)
  442.     ON_VBXEVENT(VBN_SCROLLDN, IDC_VBSPIN1, OnScrolldnVbspin1)
  443.     ON_VBXEVENT(VBN_SCROLLUP, IDC_VBSPIN2, OnScrollupVbspin2)
  444.     ON_VBXEVENT(VBN_SCROLLDN, IDC_VBSPIN2, OnScrolldnVbspin2)
  445.     //}}AFX_MSG_MAP
  446. END_MESSAGE_MAP()
  447.  
  448. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  449. // CDlgVBMask dialog
  450.  
  451.  
  452. CDlgVBMask::CDlgVBMask() : CPropertyPage( CDlgVBMask::IDD )
  453. {
  454.     //{{AFX_DATA_INIT(CDlgVBMask)
  455.     m_pMask1 = NULL;
  456.     m_szValue = "";
  457.     //}}AFX_DATA_INIT
  458. }
  459.  
  460. void CDlgVBMask::DoDataExchange(CDataExchange* pDX)
  461. {
  462.     CPropertyPage::DoDataExchange(pDX);
  463.     //{{AFX_DATA_MAP(CDlgVBMask)
  464.     DDX_VBMask(pDX, IDC_VBMASK1, m_pMask1);
  465.     DDX_VBText(pDX, IDC_VBFLXTXT1, 19, m_szValue);
  466.     //}}AFX_DATA_MAP
  467. }
  468.  
  469. void CDlgVBMask::OnHelp()
  470. {
  471.     if ( !bHlpNotHere )
  472.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBMask" );
  473.     else
  474.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  475. }
  476.  
  477. void CDlgVBMask::OnUpdateVbmask1(UINT, int, CWnd*, LPVOID)
  478. {
  479.     CStr szText;
  480.     szText.From( m_pMask1->rValue() );
  481.     m_szValue = szText;
  482.     UpdateData( FALSE );
  483.         
  484. }
  485.  
  486.                    
  487. BEGIN_MESSAGE_MAP(CDlgVBMask, CPropertyPage)
  488.     //{{AFX_MSG_MAP(CDlgVBMask)
  489.     ON_COMMAND(IDHELP, OnHelp)
  490.     ON_VBXEVENT(VBN_UPDATE, IDC_VBMASK1, OnUpdateVbmask1)
  491.     //}}AFX_MSG_MAP
  492. END_MESSAGE_MAP()
  493.  
  494. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  495. // CDlgVBSpin dialog
  496.  
  497.  
  498. CDlgVBSpin::CDlgVBSpin() : CPropertyPage( CDlgVBSpin::IDD )
  499. {
  500.     //{{AFX_DATA_INIT(CDlgVBSpin)
  501.     m_pSpinDate = NULL;
  502.     m_pSpinCustom = NULL;
  503.     m_pEditDate = NULL;
  504.     m_pCustomEdit = NULL;
  505.     m_szCustomEdit = "";
  506.     //}}AFX_DATA_INIT
  507. }
  508.  
  509. void CDlgVBSpin::DoDataExchange(CDataExchange* pDX)
  510. {
  511.     CPropertyPage::DoDataExchange(pDX);
  512.     //{{AFX_DATA_MAP(CDlgVBSpin)
  513.     DDX_VBSpin(pDX, IDC_VBSPIN4, m_pSpinDate);
  514.     DDX_VBSpin(pDX, IDC_VBSPIN5, m_pSpinCustom);
  515.     DDX_VBEdit(pDX, IDC_VBEDIT3, m_pEditDate);
  516.     DDX_VBEdit(pDX, IDC_VBEDIT4, m_pCustomEdit);
  517.     DDX_VBText(pDX, IDC_VBEDIT4, 41, m_szCustomEdit);
  518.     //}}AFX_DATA_MAP
  519. }
  520.  
  521. void CDlgVBSpin::OnHelp()
  522. {
  523.     if ( !bHlpNotHere )
  524.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBSpin" );
  525.     else
  526.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  527. }
  528.  
  529.  
  530. void CDlgVBSpin::OnScrollupVbspinDate(UINT, int, CWnd*, LPVOID)
  531. {
  532.     m_pSpinDate->Value() = 0;        // we use the VBEdit 'spin' properties instead...
  533.     m_pEditDate->Increment() = TRUE;   // yes, that' s all!
  534.  
  535. }
  536.  
  537. void CDlgVBSpin::OnScrolldnVbspinDate(UINT, int, CWnd*, LPVOID)
  538. {
  539.     m_pSpinDate->Value() = 0;        // we use the VBEdit 'spin' properties instead...
  540.     m_pEditDate->Decrement() = TRUE;   // yes, that' s all!
  541.     
  542. }
  543.  
  544. void CDlgVBSpin::OnScrollupVbspinCustom(UINT, int, CWnd*, LPVOID)
  545. {
  546.     // Now, we are looking for difficulties...
  547.     // we have a look at the edit control text
  548.     if ( m_szCustomEdit == CustomSpinList[0] )
  549.         {
  550.         m_pSpinCustom->Value() += 1;
  551.         m_szCustomEdit = CustomSpinList[1];
  552.         UpdateData( FALSE );                 
  553.         m_pCustomEdit->SetFocus();
  554.         m_pCustomEdit->SetSel2() = TRUE;
  555.         return;
  556.         }
  557.     if ( m_szCustomEdit == CustomSpinList[1] )
  558.         {
  559.         m_pSpinCustom->Value() += 1;
  560.         m_szCustomEdit = CustomSpinList[2];
  561.         UpdateData( FALSE );               
  562.         m_pCustomEdit->SetFocus();
  563.         m_pCustomEdit->SetSel2() = TRUE;
  564.         return;
  565.         }
  566.     m_pSpinCustom->Value() = 2;    // the last one
  567.     m_szCustomEdit = CustomSpinList[2];
  568.     UpdateData( FALSE );
  569.     m_pCustomEdit->SetFocus();
  570.     m_pCustomEdit->SetSel2() = TRUE;
  571.     
  572. }
  573.  
  574. void CDlgVBSpin::OnScrolldnVbspinCustom(UINT, int, CWnd*, LPVOID)
  575. {
  576.     // Now, we are looking for difficulties...
  577.     // we have a look at the edit control text
  578.     if ( m_szCustomEdit == CustomSpinList[2] )
  579.         {
  580.         m_pSpinCustom->Value() -= 1;
  581.         m_szCustomEdit = CustomSpinList[1];
  582.         UpdateData( FALSE );
  583.         m_pCustomEdit->SetFocus();
  584.         m_pCustomEdit->SetSel2() = TRUE;
  585.         return;
  586.         }
  587.     if ( m_szCustomEdit == CustomSpinList[1] )
  588.         {
  589.         m_pSpinCustom->Value() -= 1;
  590.         m_szCustomEdit = CustomSpinList[0];
  591.         UpdateData( FALSE );
  592.         m_pCustomEdit->SetFocus();
  593.         m_pCustomEdit->SetSel2() = TRUE;
  594.         return;
  595.         }
  596.     m_pSpinCustom->Value() = 0;    // the last one
  597.     m_szCustomEdit = CustomSpinList[0];
  598.     UpdateData( FALSE );
  599.     m_pCustomEdit->SetFocus();
  600.     m_pCustomEdit->SetSel2() = TRUE;
  601.     
  602. }
  603.  
  604. BOOL CDlgVBSpin::OnInitDialog()
  605. {
  606.     CPropertyPage::OnInitDialog();
  607.     
  608.     m_szCustomEdit = "<Item 1>";
  609.     UpdateData( FALSE );
  610.     return TRUE;  // return TRUE  unless you set the focus to a control
  611. }
  612.  
  613. BEGIN_MESSAGE_MAP(CDlgVBSpin, CPropertyPage)
  614.     //{{AFX_MSG_MAP(CDlgVBSpin)
  615.     ON_COMMAND(IDHELP, OnHelp)
  616.     ON_VBXEVENT(VBN_SCROLLUP, IDC_VBSPIN4, OnScrollupVbspinDate)
  617.     ON_VBXEVENT(VBN_SCROLLDN, IDC_VBSPIN4, OnScrolldnVbspinDate)
  618.     ON_VBXEVENT(VBN_SCROLLUP, IDC_VBSPIN5, OnScrollupVbspinCustom)
  619.     ON_VBXEVENT(VBN_SCROLLDN, IDC_VBSPIN5, OnScrolldnVbspinCustom)
  620.     //}}AFX_MSG_MAP
  621. END_MESSAGE_MAP()
  622.  
  623. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  624. // CDlgVBLine dialog
  625.  
  626.  
  627. CDlgVBLine::CDlgVBLine() : CPropertyPage( CDlgVBLine::IDD )
  628. {
  629.     //{{AFX_DATA_INIT(CDlgVBLine)
  630.         // NOTE: the ClassWizard will add member initialization here
  631.     //}}AFX_DATA_INIT
  632. }
  633.  
  634. void CDlgVBLine::DoDataExchange(CDataExchange* pDX)
  635. {
  636.     CPropertyPage::DoDataExchange(pDX);
  637.     //{{AFX_DATA_MAP(CDlgVBLine)
  638.         // NOTE: the ClassWizard will add DDX and DDV calls here
  639.     //}}AFX_DATA_MAP
  640. }
  641.  
  642. void CDlgVBLine::OnHelp()
  643. {
  644.     if ( !bHlpNotHere )
  645.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBLine" );
  646.     else
  647.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  648. }
  649.  
  650.  
  651. BEGIN_MESSAGE_MAP(CDlgVBLine, CPropertyPage)
  652.     //{{AFX_MSG_MAP(CDlgVBLine)
  653.     ON_COMMAND(IDHELP, OnHelp)
  654.     //}}AFX_MSG_MAP
  655. END_MESSAGE_MAP()
  656.  
  657. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  658. // CDlgVBPicBtn dialog
  659.  
  660.  
  661. CDlgVBPicBtn::CDlgVBPicBtn() : CPropertyPage( CDlgVBPicBtn::IDD )
  662. {
  663.     //{{AFX_DATA_INIT(CDlgVBPicBtn)
  664.     m_pColor4 = NULL;
  665.     m_pColor5 = NULL;
  666.     m_pColor6 = NULL;
  667.     m_pColor7 = NULL;
  668.     m_pColor8 = NULL;
  669.     //}}AFX_DATA_INIT
  670. }
  671.  
  672. void CDlgVBPicBtn::DoDataExchange(CDataExchange* pDX)
  673. {
  674.     CPropertyPage::DoDataExchange(pDX);
  675.     //{{AFX_DATA_MAP(CDlgVBPicBtn)
  676.     DDX_VBPicBtn(pDX, IDC_VBPICBTN7, m_pColor4);
  677.     DDX_VBPicBtn(pDX, IDC_VBPICBTN5, m_pColor5);
  678.     DDX_VBPicBtn(pDX, IDC_VBPICBTN4, m_pColor6);
  679.     DDX_VBPicBtn(pDX, IDC_VBPICBTN6, m_pColor7);
  680.     DDX_VBPicBtn(pDX, IDC_VBPICBTN8, m_pColor8);
  681.     //}}AFX_DATA_MAP
  682. }
  683.  
  684. void CDlgVBPicBtn::OnHelp()
  685. {
  686.     if ( !bHlpNotHere )
  687.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBPicBtn" );
  688.     else
  689.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  690. }
  691.  
  692. void CDlgVBPicBtn::OnClickVbpicbtn1(UINT, int, CWnd*, LPVOID)
  693. {
  694.     if ( m_pColor4->ButtonState() )
  695.         {
  696.         if ( m_pColor5->ButtonState() )
  697.             m_pColor5->SetState() = FALSE;
  698.         if ( m_pColor6->ButtonState() )
  699.             m_pColor6->SetState() = FALSE;
  700.         if ( m_pColor7->ButtonState() )
  701.             m_pColor7->SetState() = FALSE;
  702.         if ( m_pColor8->ButtonState() )
  703.             m_pColor8->SetState() = FALSE;
  704.         }    
  705.     
  706. }
  707.  
  708. void CDlgVBPicBtn::OnClickVbpicbtn2(UINT, int, CWnd*, LPVOID)
  709. {
  710.     if ( m_pColor5->ButtonState() )
  711.         {
  712.         if ( m_pColor4->ButtonState() )
  713.             m_pColor4->SetState() = FALSE;
  714.         if ( m_pColor6->ButtonState() )
  715.             m_pColor6->SetState() = FALSE;
  716.         if ( m_pColor7->ButtonState() )
  717.             m_pColor7->SetState() = FALSE;
  718.         if ( m_pColor8->ButtonState() )
  719.             m_pColor8->SetState() = FALSE;
  720.         }    
  721.     
  722. }
  723.  
  724. void CDlgVBPicBtn::OnClickVbpicbtn3(UINT, int, CWnd*, LPVOID)
  725. {
  726.     if ( m_pColor6->ButtonState() )
  727.         {
  728.         if ( m_pColor4->ButtonState() )
  729.             m_pColor4->SetState() = FALSE;
  730.         if ( m_pColor5->ButtonState() )
  731.             m_pColor5->SetState() = FALSE;
  732.         if ( m_pColor7->ButtonState() )
  733.             m_pColor7->SetState() = FALSE;
  734.         if ( m_pColor8->ButtonState() )
  735.             m_pColor8->SetState() = FALSE;
  736.         }    
  737.     
  738. }
  739.  
  740. void CDlgVBPicBtn::OnClickVbpicbtn4(UINT, int, CWnd*, LPVOID)
  741. {
  742.     if ( m_pColor7->ButtonState() )
  743.         {
  744.         if ( m_pColor4->ButtonState() )
  745.             m_pColor4->SetState() = FALSE;
  746.         if ( m_pColor5->ButtonState() )
  747.             m_pColor5->SetState() = FALSE;
  748.         if ( m_pColor6->ButtonState() )
  749.             m_pColor6->SetState() = FALSE;
  750.         if ( m_pColor8->ButtonState() )
  751.             m_pColor8->SetState() = FALSE;
  752.         }    
  753.     
  754.     
  755. }
  756.  
  757. void CDlgVBPicBtn::OnClickVbpicbtn5(UINT, int, CWnd*, LPVOID)
  758. {
  759.     if ( m_pColor8->ButtonState() )
  760.         {
  761.         if ( m_pColor4->ButtonState() )
  762.             m_pColor4->SetState() = FALSE;
  763.         if ( m_pColor5->ButtonState() )
  764.             m_pColor5->SetState() = FALSE;
  765.         if ( m_pColor6->ButtonState() )
  766.             m_pColor6->SetState() = FALSE;
  767.         if ( m_pColor7->ButtonState() )
  768.             m_pColor7->SetState() = FALSE;
  769.         }    
  770.  
  771.     
  772. }
  773.  
  774.  
  775. BEGIN_MESSAGE_MAP(CDlgVBPicBtn, CPropertyPage)
  776.     //{{AFX_MSG_MAP(CDlgVBPicBtn)
  777.     ON_COMMAND(IDHELP, OnHelp)
  778.     ON_VBXEVENT(VBN_CLICK, IDC_VBPICBTN7, OnClickVbpicbtn1)
  779.     ON_VBXEVENT(VBN_CLICK, IDC_VBPICBTN5, OnClickVbpicbtn2)
  780.     ON_VBXEVENT(VBN_CLICK, IDC_VBPICBTN4, OnClickVbpicbtn3)
  781.     ON_VBXEVENT(VBN_CLICK, IDC_VBPICBTN6, OnClickVbpicbtn4)
  782.     ON_VBXEVENT(VBN_CLICK, IDC_VBPICBTN8, OnClickVbpicbtn5)
  783.     //}}AFX_MSG_MAP
  784. END_MESSAGE_MAP()
  785.  
  786. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  787. // CDlgVBAnim dialog
  788.  
  789.  
  790. CDlgVBAnim::CDlgVBAnim() : CPropertyPage( CDlgVBAnim::IDD )
  791. {
  792.     //{{AFX_DATA_INIT(CDlgVBAnim)
  793.         // NOTE: the ClassWizard will add member initialization here
  794.     //}}AFX_DATA_INIT
  795. }
  796.  
  797. void CDlgVBAnim::DoDataExchange(CDataExchange* pDX)
  798. {
  799.     CPropertyPage::DoDataExchange(pDX);
  800.     //{{AFX_DATA_MAP(CDlgVBAnim)
  801.         // NOTE: the ClassWizard will add DDX and DDV calls here
  802.     //}}AFX_DATA_MAP
  803. }
  804.  
  805. void CDlgVBAnim::OnHelp()
  806. {
  807.     if ( !bHlpNotHere )
  808.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBAnim" );
  809.     else
  810.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  811. }
  812.  
  813.  
  814. BEGIN_MESSAGE_MAP(CDlgVBAnim, CPropertyPage)
  815.     //{{AFX_MSG_MAP(CDlgVBAnim)
  816.     ON_COMMAND(IDHELP, OnHelp)
  817.     //}}AFX_MSG_MAP
  818. END_MESSAGE_MAP()
  819.  
  820. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  821. // CDlgVBBitmap dialog
  822.  
  823.  
  824. CDlgVBBitmap::CDlgVBBitmap() : CPropertyPage( CDlgVBBitmap::IDD )
  825. {
  826.     //{{AFX_DATA_INIT(CDlgVBBitmap)
  827.         // NOTE: the ClassWizard will add member initialization here
  828.     //}}AFX_DATA_INIT
  829. }
  830.  
  831. void CDlgVBBitmap::DoDataExchange(CDataExchange* pDX)
  832. {
  833.     CPropertyPage::DoDataExchange(pDX);
  834.     //{{AFX_DATA_MAP(CDlgVBBitmap)
  835.         // NOTE: the ClassWizard will add DDX and DDV calls here
  836.     //}}AFX_DATA_MAP
  837. }
  838.  
  839. void CDlgVBBitmap::OnHelp()
  840. {
  841.     if ( !bHlpNotHere )
  842.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBBitmap" );
  843.     else
  844.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  845. }
  846.  
  847.  
  848. BEGIN_MESSAGE_MAP(CDlgVBBitmap, CPropertyPage)
  849.     //{{AFX_MSG_MAP(CDlgVBBitmap)
  850.     ON_COMMAND(IDHELP, OnHelp)
  851.     //}}AFX_MSG_MAP
  852. END_MESSAGE_MAP()
  853.  
  854. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  855. // CDlgVBTab dialog
  856.  
  857.  
  858. CDlgVBTab::CDlgVBTab() : CPropertyPage( CDlgVBTab::IDD )
  859. {
  860.     //{{AFX_DATA_INIT(CDlgVBTab)
  861.     m_pTab1 = NULL;
  862.     m_pTab2 = NULL;
  863.     m_pTab3 = NULL;
  864.     m_pTab4 = NULL;
  865.     m_pTab5 = NULL;
  866.     m_pTab6 = NULL;
  867.     m_szText = "";
  868.     //}}AFX_DATA_INIT
  869. }
  870.  
  871. void CDlgVBTab::DoDataExchange(CDataExchange* pDX)
  872. {
  873.     CPropertyPage::DoDataExchange(pDX);
  874.     //{{AFX_DATA_MAP(CDlgVBTab)
  875.     DDX_VBTab(pDX, IDC_VBTAB1, m_pTab1);
  876.     DDX_VBTab(pDX, IDC_VBTAB2, m_pTab2);
  877.     DDX_VBTab(pDX, IDC_VBTAB3, m_pTab3);
  878.     DDX_VBTab(pDX, IDC_VBTAB4, m_pTab4);
  879.     DDX_VBTab(pDX, IDC_VBTAB5, m_pTab5);
  880.     DDX_VBTab(pDX, IDC_VBTAB6, m_pTab6);
  881.     DDX_VBText(pDX, IDC_VBTEXT12, 20, m_szText);
  882.     //}}AFX_DATA_MAP
  883. }
  884.  
  885. void CDlgVBTab::OnHelp()
  886. {
  887.     if ( !bHlpNotHere )
  888.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBTab" );
  889.     else
  890.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  891. }
  892.  
  893.  
  894. void CDlgVBTab::OnClickVbtab1(UINT, int, CWnd*, LPVOID)
  895. {
  896.     HandleTheTab();
  897.     
  898. }
  899.  
  900. void CDlgVBTab::OnClickVbtab2(UINT, int, CWnd*, LPVOID)
  901. {
  902.     HandleTheTab();
  903.     
  904. }
  905.  
  906. void CDlgVBTab::OnClickVbtab3(UINT, int, CWnd*, LPVOID)
  907. {
  908.     HandleTheTab();
  909.     
  910. }
  911.  
  912. void CDlgVBTab::OnClickVbtab4(UINT, int, CWnd*, LPVOID)
  913. {
  914.     HandleTheTab();
  915.     
  916. }
  917.  
  918. void CDlgVBTab::OnClickVbtab5(UINT, int, CWnd*, LPVOID)
  919. {
  920.     HandleTheTab();
  921.     
  922. }
  923.  
  924. void CDlgVBTab::OnClickVbtab6(UINT, int, CWnd*, LPVOID)
  925. {
  926.     HandleTheTab();
  927.     
  928. }
  929.  
  930. BOOL CDlgVBTab::OnInitDialog()
  931. {
  932.     CPropertyPage::OnInitDialog();
  933.     
  934.     UpdateData( FALSE );
  935.     m_szText = "You are on the first panel.";
  936.     m_pTab1->Active() = TRUE;
  937.     HandleTheTab();
  938.     
  939.     return TRUE;  // return TRUE  unless you set the focus to a control
  940. }
  941.  
  942. void CDlgVBTab::HandleTheTab()
  943.     {
  944.     UINT iTrueValue;            
  945.     CString szCurrent;
  946.     if ( m_pTab1->Active() )
  947.         iTrueValue = IDC_VBTAB1;
  948.     else if ( m_pTab2->Active() )
  949.         iTrueValue = IDC_VBTAB2;
  950.     else if ( m_pTab3->Active() )
  951.         iTrueValue = IDC_VBTAB3;
  952.     else if ( m_pTab4->Active() )
  953.         iTrueValue = IDC_VBTAB4;
  954.     else if ( m_pTab5->Active() )
  955.         iTrueValue = IDC_VBTAB5;
  956.     else if ( m_pTab6->Active() )
  957.         iTrueValue = IDC_VBTAB6;
  958.     else
  959.         iTrueValue = IDC_VBTAB1;
  960.     
  961.     switch ( iTrueValue )
  962.         {
  963.         case IDC_VBTAB1: szCurrent = (CString)m_pTab1->Caption(); break;
  964.         case IDC_VBTAB2: szCurrent = (CString)m_pTab2->Caption(); break;
  965.         case IDC_VBTAB3: szCurrent = (CString)m_pTab3->Caption(); break;
  966.         case IDC_VBTAB4: szCurrent = (CString)m_pTab4->Caption(); break;
  967.         case IDC_VBTAB5: szCurrent = (CString)m_pTab5->Caption(); break;
  968.         case IDC_VBTAB6: szCurrent = (CString)m_pTab6->Caption(); break;
  969.         }
  970.     
  971.     if ( szCurrent == "Tab&1" )
  972.         {
  973.         m_szText = "You are on the first page.";
  974.         }
  975.     else if ( szCurrent == "Tab&2" )
  976.         {
  977.         m_szText = "You are on the page 2.";
  978.         }
  979.     else if ( szCurrent == "Tab&3" )
  980.         {
  981.         m_szText = "You are on the page 3.";
  982.         }
  983.     else if ( szCurrent == "Tab&4" )
  984.         {
  985.         m_szText = "You are on the page 4.";
  986.         }
  987.     else if ( szCurrent == "Tab&5" )
  988.         {
  989.         m_szText = "You are on the page 5.";
  990.         }
  991.     else if ( szCurrent == "Tab&6" )
  992.         {
  993.         m_szText = "You are on the page 6.";
  994.         }
  995.     UpdateData( FALSE );
  996.     }                   
  997.  
  998. BEGIN_MESSAGE_MAP(CDlgVBTab, CPropertyPage)
  999.     //{{AFX_MSG_MAP(CDlgVBTab)
  1000.     ON_COMMAND(IDHELP, OnHelp)
  1001.     ON_VBXEVENT(VBN_CLICK, IDC_VBTAB1, OnClickVbtab1)
  1002.     ON_VBXEVENT(VBN_CLICK, IDC_VBTAB2, OnClickVbtab2)
  1003.     ON_VBXEVENT(VBN_CLICK, IDC_VBTAB3, OnClickVbtab3)
  1004.     ON_VBXEVENT(VBN_CLICK, IDC_VBTAB4, OnClickVbtab4)
  1005.     ON_VBXEVENT(VBN_CLICK, IDC_VBTAB5, OnClickVbtab5)
  1006.     ON_VBXEVENT(VBN_CLICK, IDC_VBTAB6, OnClickVbtab6)
  1007.     //}}AFX_MSG_MAP
  1008. END_MESSAGE_MAP()
  1009.  
  1010. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1011. // CDlgVBText dialog
  1012.  
  1013.  
  1014. CDlgVBText::CDlgVBText() : CPropertyPage( CDlgVBText::IDD )
  1015. {
  1016.     //{{AFX_DATA_INIT(CDlgVBText)
  1017.         // NOTE: the ClassWizard will add member initialization here
  1018.     //}}AFX_DATA_INIT
  1019. }
  1020.  
  1021. void CDlgVBText::DoDataExchange(CDataExchange* pDX)
  1022. {
  1023.     CPropertyPage::DoDataExchange(pDX);
  1024.     //{{AFX_DATA_MAP(CDlgVBText)
  1025.         // NOTE: the ClassWizard will add DDX and DDV calls here
  1026.     //}}AFX_DATA_MAP
  1027. }
  1028.  
  1029. void CDlgVBText::OnHelp()
  1030. {
  1031.     if ( !bHlpNotHere )
  1032.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBText" );
  1033.     else
  1034.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1035. }
  1036.  
  1037.  
  1038. BEGIN_MESSAGE_MAP(CDlgVBText, CPropertyPage)
  1039.     //{{AFX_MSG_MAP(CDlgVBText)
  1040.     ON_COMMAND(IDHELP, OnHelp)
  1041.     //}}AFX_MSG_MAP
  1042. END_MESSAGE_MAP()
  1043.  
  1044. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1045. // CDlgVBFlxTxt dialog
  1046.  
  1047.  
  1048. CDlgVBFlxTxt::CDlgVBFlxTxt() : CPropertyPage( CDlgVBFlxTxt::IDD )
  1049. {
  1050.     //{{AFX_DATA_INIT(CDlgVBFlxTxt)
  1051.     m_pTabText = NULL;
  1052.     //}}AFX_DATA_INIT
  1053. }
  1054.  
  1055. void CDlgVBFlxTxt::DoDataExchange(CDataExchange* pDX)
  1056. {
  1057.     CPropertyPage::DoDataExchange(pDX);
  1058.     //{{AFX_DATA_MAP(CDlgVBFlxTxt)
  1059.     DDX_VBFlxTxt(pDX, IDC_VBFLXTXT3, m_pTabText);
  1060.     //}}AFX_DATA_MAP
  1061. }
  1062.  
  1063. void CDlgVBFlxTxt::OnHelp()
  1064. {
  1065.     if ( !bHlpNotHere )
  1066.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBFlxTxt" );
  1067.     else
  1068.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1069. }
  1070.  
  1071. BOOL CDlgVBFlxTxt::OnInitDialog()
  1072. {
  1073.     CPropertyPage::OnInitDialog();
  1074.     CStr szTest;          
  1075.     long lSize1, lSize2;
  1076.     
  1077.     szTest = "Item1";
  1078.     lSize1 = (long)szTest.GetTextWidth( this );
  1079.     
  1080.     szTest = "Item2";
  1081.     lSize2 = (long)szTest.GetTextWidth( this );
  1082.     
  1083.     m_pTabText->TabList( lSize1+10, 0 );
  1084.     m_pTabText->TabList( lSize1+40+lSize2, 1 );
  1085.     m_pTabText->Caption() = "Item1\tItem2\tItem3";
  1086.     UpdateData( FALSE );
  1087.     
  1088.     return TRUE;  // return TRUE  unless you set the focus to a control
  1089. }
  1090.  
  1091.  
  1092. BEGIN_MESSAGE_MAP(CDlgVBFlxTxt, CPropertyPage)
  1093.     //{{AFX_MSG_MAP(CDlgVBFlxTxt)
  1094.     ON_COMMAND(IDHELP, OnHelp)
  1095.     //}}AFX_MSG_MAP
  1096. END_MESSAGE_MAP()
  1097.  
  1098. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1099. // CDlgVB3D dialog
  1100.  
  1101.  
  1102. CDlgVB3D::CDlgVB3D() : CPropertyPage( CDlgVB3D::IDD )
  1103. {
  1104.     //{{AFX_DATA_INIT(CDlgVB3D)
  1105.     m_p3D = NULL;
  1106.     //}}AFX_DATA_INIT
  1107. }
  1108.  
  1109. void CDlgVB3D::DoDataExchange(CDataExchange* pDX)
  1110. {
  1111.     CPropertyPage::DoDataExchange(pDX);
  1112.     //{{AFX_DATA_MAP(CDlgVB3D)
  1113.     DDX_VB3D(pDX, IDC_VB3D1, m_p3D);
  1114.     //}}AFX_DATA_MAP
  1115. }
  1116.  
  1117. void CDlgVB3D::OnHelp()
  1118. {
  1119.     if ( !bHlpNotHere )
  1120.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VB3D" );
  1121.     else
  1122.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1123. }
  1124.  
  1125. BOOL CDlgVB3D::OnInitDialog()
  1126. {
  1127.     CPropertyPage::OnInitDialog();
  1128.     
  1129.     // TODO: Add extra initialization here
  1130.  
  1131.     m_p3D->GetVBX()->AddItem("Edit", 0);
  1132.     SetDlgItemText( IDC_EDIT1, "This is a standard Edit control..." );
  1133.         
  1134.     
  1135.     return TRUE;  // return TRUE  unless you set the focus to a control
  1136. }
  1137.  
  1138. void CDlgVB3D::OnPaint()
  1139. {
  1140.     CPaintDC dc(this); // device context for painting
  1141.     m_p3D->GetVBX()->Refresh(); // required with VC++
  1142.     
  1143.     // TODO: Add your message handler code here
  1144.     
  1145.     // Do not call CPropertyPage::OnPaint() for painting messages
  1146. }
  1147.  
  1148. BEGIN_MESSAGE_MAP(CDlgVB3D, CPropertyPage)
  1149.     //{{AFX_MSG_MAP(CDlgVB3D)
  1150.     ON_COMMAND(IDHELP, OnHelp)
  1151.     ON_WM_PAINT()
  1152.     //}}AFX_MSG_MAP
  1153. END_MESSAGE_MAP()
  1154.  
  1155. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1156. // CDlgVBNote dialog
  1157.  
  1158.  
  1159. CDlgVBNote::CDlgVBNote() : CPropertyPage( CDlgVBNote::IDD )
  1160. {
  1161.     //{{AFX_DATA_INIT(CDlgVBNote)
  1162.         // NOTE: the ClassWizard will add member initialization here
  1163.     //}}AFX_DATA_INIT
  1164. }
  1165.  
  1166. void CDlgVBNote::DoDataExchange(CDataExchange* pDX)
  1167. {
  1168.     CPropertyPage::DoDataExchange(pDX);
  1169.     //{{AFX_DATA_MAP(CDlgVBNote)
  1170.         // NOTE: the ClassWizard will add DDX and DDV calls here
  1171.     //}}AFX_DATA_MAP
  1172. }
  1173.  
  1174. void CDlgVBNote::OnHelp()
  1175. {
  1176.     if ( !bHlpNotHere )
  1177.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBNote" );
  1178.     else
  1179.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1180. }
  1181.  
  1182.  
  1183. BEGIN_MESSAGE_MAP(CDlgVBNote, CPropertyPage)
  1184.     //{{AFX_MSG_MAP(CDlgVBNote)
  1185.     ON_COMMAND(IDHELP, OnHelp)
  1186.     //}}AFX_MSG_MAP
  1187. END_MESSAGE_MAP()
  1188.  
  1189. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1190. // CDlgVBFInfo dialog
  1191.  
  1192.  
  1193. CDlgVBFInfo::CDlgVBFInfo() : CPropertyPage( CDlgVBFInfo::IDD )
  1194. {
  1195.     //{{AFX_DATA_INIT(CDlgVBFInfo)
  1196.     m_pFInfo = NULL;
  1197.     m_szFIFileName = "";
  1198.     m_szFISize = "";
  1199.     m_szFIDate = "";
  1200.     m_szPName = "";
  1201.     m_szVersion = "";
  1202.     m_szCopyright = "";
  1203.     m_szAttributes = "";
  1204.     //}}AFX_DATA_INIT
  1205. }
  1206.  
  1207. void CDlgVBFInfo::DoDataExchange(CDataExchange* pDX)
  1208. {
  1209.     CPropertyPage::DoDataExchange(pDX);
  1210.     //{{AFX_DATA_MAP(CDlgVBFInfo)
  1211.     DDX_VBFInfo(pDX, IDC_VBFINFO1, m_pFInfo);
  1212.     DDX_VBText(pDX, IDC_VBFLXTXT1, 19, m_szFIFileName);
  1213.     DDX_VBText(pDX, IDC_VBFLXTXT3, 19, m_szFISize);
  1214.     DDX_VBText(pDX, IDC_VBFLXTXT4, 19, m_szFIDate);
  1215.     DDX_VBText(pDX, IDC_VBFLXTXT6, 19, m_szPName);
  1216.     DDX_VBText(pDX, IDC_VBFLXTXT7, 19, m_szVersion);
  1217.     DDX_VBText(pDX, IDC_VBFLXTXT8, 19, m_szCopyright);
  1218.     DDX_VBText(pDX, IDC_VBFLXTXT5, 19, m_szAttributes);
  1219.     //}}AFX_DATA_MAP
  1220. }
  1221.  
  1222. void CDlgVBFInfo::OnHelp()
  1223. {
  1224.     if (!bHlpNotHere )
  1225.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBFInfo" );
  1226.     else
  1227.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1228. }
  1229.  
  1230. void CDlgVBFInfo::OnButton1()
  1231. {
  1232.     // TODO: Add your control notification handler code here
  1233.     CStr szTemp;
  1234.     m_pFInfo->FileName() = "?";
  1235.     
  1236.     m_szFIFileName = m_pFInfo->FileName();
  1237.     szTemp.sprintf( "%ld bytes.", (long)m_pFInfo->Size() );
  1238.     m_szFISize = szTemp;
  1239.     szTemp.sprintf( "%.02d/%.02d/%.04d.", (int)m_pFInfo->DateMonth(), (int)m_pFInfo->DateDay(), (int)m_pFInfo->DateYear() );
  1240.     m_szFIDate = szTemp;
  1241.     szTemp.sprintf( "%s.%s.%s.%s", 
  1242.             m_pFInfo->Archive() != 0 ? "a" : " ",
  1243.             m_pFInfo->Hidden() != 0 ? "h" : " ",
  1244.             m_pFInfo->System() != 0 ? "s" : " ",
  1245.             m_pFInfo->ReadOnly() != 0 ? "r" : " " );
  1246.     m_szAttributes = szTemp;
  1247.     m_szPName = m_pFInfo->VersionProductName();
  1248.     m_szVersion = m_pFInfo->szVersion();
  1249.     m_szCopyright = m_pFInfo->VersionCopyright();
  1250.     UpdateData( FALSE );
  1251.     
  1252. }
  1253.  
  1254. BEGIN_MESSAGE_MAP(CDlgVBFInfo, CPropertyPage)
  1255.     //{{AFX_MSG_MAP(CDlgVBFInfo)
  1256.     ON_COMMAND(IDHELP, OnHelp)
  1257.     ON_BN_CLICKED(IDC_BUTTON1, OnButton1)
  1258.     //}}AFX_MSG_MAP
  1259. END_MESSAGE_MAP()
  1260.  
  1261. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1262. // CDlgVBIni dialog
  1263.  
  1264.  
  1265. CDlgVBIni::CDlgVBIni() : CPropertyPage( CDlgVBIni::IDD )
  1266. {
  1267.     //{{AFX_DATA_INIT(CDlgVBIni)
  1268.         // NOTE: the ClassWizard will add member initialization here
  1269.     //}}AFX_DATA_INIT
  1270. }
  1271.  
  1272. void CDlgVBIni::DoDataExchange(CDataExchange* pDX)
  1273. {
  1274.     CPropertyPage::DoDataExchange(pDX);
  1275.     //{{AFX_DATA_MAP(CDlgVBIni)
  1276.         // NOTE: the ClassWizard will add DDX and DDV calls here
  1277.     //}}AFX_DATA_MAP
  1278. }
  1279.  
  1280. void CDlgVBIni::OnHelp()
  1281. {
  1282.     if ( !bHlpNotHere )
  1283.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBIni" );
  1284.     else
  1285.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1286. }
  1287.  
  1288.  
  1289. BEGIN_MESSAGE_MAP(CDlgVBIni, CPropertyPage)
  1290.     //{{AFX_MSG_MAP(CDlgVBIni)
  1291.     ON_COMMAND(IDHELP, OnHelp)
  1292.     //}}AFX_MSG_MAP
  1293. END_MESSAGE_MAP()
  1294.  
  1295. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1296. // CDlgVBGauge dialog
  1297.  
  1298.  
  1299. CDlgVBGauge::CDlgVBGauge() : CPropertyPage( CDlgVBGauge::IDD )
  1300. {
  1301.     //{{AFX_DATA_INIT(CDlgVBGauge)
  1302.     m_pGauge = NULL;
  1303.     m_pSpin = NULL;
  1304.     //}}AFX_DATA_INIT
  1305. }
  1306.  
  1307. void CDlgVBGauge::DoDataExchange(CDataExchange* pDX)
  1308. {
  1309.     CPropertyPage::DoDataExchange(pDX);
  1310.     //{{AFX_DATA_MAP(CDlgVBGauge)
  1311.     DDX_VBGauge(pDX, IDC_VBGAUGE3, m_pGauge);
  1312.     DDX_VBSpin(pDX, IDC_VBSPIN1, m_pSpin);
  1313.     //}}AFX_DATA_MAP
  1314. }
  1315.  
  1316. void CDlgVBGauge::OnHelp()
  1317. {
  1318.     if ( !bHlpNotHere )
  1319.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBGauge" );
  1320.     else
  1321.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1322. }
  1323.  
  1324. void CDlgVBGauge::OnScrollupVbspin1(UINT, int, CWnd*, LPVOID)
  1325. {
  1326.     m_pSpin->Value() = 0;
  1327.     if ( m_pGauge->Value() < 96 )
  1328.         {
  1329.         m_pGauge->Value() += 5;
  1330.         UpdateData( FALSE );
  1331.         m_pGauge->GetVBX()->Refresh();      // required when use with VC++
  1332.         AfxGiveTheHand();
  1333.         }
  1334.     
  1335. }
  1336.  
  1337. void CDlgVBGauge::OnScrolldnVbspin1(UINT, int, CWnd*, LPVOID)
  1338. {
  1339.     m_pSpin->Value() = 0;
  1340.     if ( m_pGauge->Value() > 4 )
  1341.         {
  1342.         m_pGauge->Value() -= 5;
  1343.         UpdateData( FALSE );
  1344.         m_pGauge->GetVBX()->Refresh();        // required when use with VC++
  1345.         AfxGiveTheHand();
  1346.         }
  1347.  
  1348. }
  1349.  
  1350.  
  1351. BEGIN_MESSAGE_MAP(CDlgVBGauge, CPropertyPage)
  1352.     //{{AFX_MSG_MAP(CDlgVBGauge)
  1353.     ON_COMMAND(IDHELP, OnHelp)
  1354.     ON_VBXEVENT(VBN_SCROLLUP, IDC_VBSPIN1, OnScrollupVbspin1)
  1355.     ON_VBXEVENT(VBN_SCROLLDN, IDC_VBSPIN1, OnScrolldnVbspin1)
  1356.     //}}AFX_MSG_MAP
  1357. END_MESSAGE_MAP()
  1358.  
  1359. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1360. // CDlgVBOverview dialog
  1361.  
  1362.  
  1363. CDlgVBOverview::CDlgVBOverview() : CPropertyPage( CDlgVBOverview::IDD )
  1364. {
  1365.     //{{AFX_DATA_INIT(CDlgVBOverview)
  1366.         // NOTE: the ClassWizard will add member initialization here
  1367.     //}}AFX_DATA_INIT
  1368. }
  1369.  
  1370. void CDlgVBOverview::DoDataExchange(CDataExchange* pDX)
  1371. {
  1372.     CPropertyPage::DoDataExchange(pDX);
  1373.     //{{AFX_DATA_MAP(CDlgVBOverview)
  1374.         // NOTE: the ClassWizard will add DDX and DDV calls here
  1375.     //}}AFX_DATA_MAP
  1376. }
  1377.  
  1378. void CDlgVBOverview::OnHelp()
  1379. {
  1380.     if ( !bHlpNotHere )
  1381.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"Overview" );
  1382.     else
  1383.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1384. }
  1385.  
  1386.  
  1387. BEGIN_MESSAGE_MAP(CDlgVBOverview, CPropertyPage)
  1388.     //{{AFX_MSG_MAP(CDlgVBOverview)
  1389.     ON_COMMAND(IDHELP, OnHelp)
  1390.     //}}AFX_MSG_MAP
  1391. END_MESSAGE_MAP()
  1392.  
  1393. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1394. // CDlgVBDDrop dialog
  1395.  
  1396.  
  1397. CDlgVBDDrop::CDlgVBDDrop() : CPropertyPage( CDlgVBDDrop::IDD )
  1398. {
  1399.     //{{AFX_DATA_INIT(CDlgVBDDrop)
  1400.     m_pDDrop = NULL;
  1401.     //}}AFX_DATA_INIT
  1402. }
  1403.  
  1404. void CDlgVBDDrop::DoDataExchange(CDataExchange* pDX)
  1405. {
  1406.     CPropertyPage::DoDataExchange(pDX);
  1407.     //{{AFX_DATA_MAP(CDlgVBDDrop)
  1408.     DDX_VBDDrop(pDX, IDC_VBDDROP1, m_pDDrop);
  1409.     //}}AFX_DATA_MAP
  1410. }
  1411.  
  1412. void CDlgVBDDrop::OnHelp()
  1413. {
  1414.     if ( !bHlpNotHere )
  1415.         ::WinHelp( m_hWnd, "VBXSTD20.HLP", HELP_KEY, (long)(LPCSTR)"VBDDrop" );
  1416.     else
  1417.         MessageBox( "VBXSTD20.HLP not in the current directory." );
  1418. }
  1419.  
  1420. void CDlgVBDDrop::OnFiledroppedVbddrop1(UINT, int, CWnd*, LPVOID lp)
  1421. {
  1422.     CString szMsg = "You dropped:\n\n";
  1423. for ( int i = 0; i < m_pDDrop->EventDroppedFiles( lp ); i++ )
  1424.     {
  1425.     szMsg += (CString)m_pDDrop->Filename( i );
  1426.     szMsg += ".\n";
  1427.     }
  1428. MessageBox( szMsg );
  1429.  
  1430.     
  1431. }
  1432.  
  1433.  
  1434. BEGIN_MESSAGE_MAP(CDlgVBDDrop, CPropertyPage)
  1435.     //{{AFX_MSG_MAP(CDlgVBDDrop)
  1436.     ON_COMMAND(IDHELP, OnHelp)
  1437.     ON_VBXEVENT(VBN_FILEDROPPED, IDC_VBDDROP1, OnFiledroppedVbddrop1)
  1438.     //}}AFX_MSG_MAP
  1439. END_MESSAGE_MAP()
  1440.  
  1441.  
  1442.